home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / System / MRAC / Lengths / Modify / l-add-up-range-section < prev    next >
Lisp/Scheme  |  1998-08-11  |  593b  |  20 lines
  1. l-add-up-range-section range section pattern
  2.  
  3. 0-based 
  4.  
  5. This function enables the adding up of selected note-lengths in a multiple list by <range>. The individual lists of a multiple list are regarded as constituting a <section>.
  6.  
  7. (setq len (qlength '((20-11011) (24-1131) (16-13) (20-14))))
  8.  
  9. (setq range
  10.       (p-select
  11.        '(0 2 3)
  12.        (pick-rnd1 .56 :content 2
  13.                   (g-integer 0 (l-count :all :content len)))))
  14. => ((0 4) (2 0) (1 0))
  15.  
  16. internally to: ((0 4) (0 2) (0 1)) 
  17.  
  18. (l-add-up-range-section range '(0 2 3) len)
  19. => ((1/10 1/20) (1/24 1/24 1/8 1/24) (1/4) (1/20 1/5))
  20.